home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-004 ms visual basic pro 30 / 4.imz / 4.IMA / ZOOM.FR_ / ZOOM.bin
Text File  |  1993-04-28  |  2KB  |  99 lines
  1. VERSION 2.00
  2. Begin Form fZoom 
  3.    BackColor       =   &H00C0C0C0&
  4.    ClientHeight    =   1815
  5.    ClientLeft      =   3600
  6.    ClientTop       =   3930
  7.    ClientWidth     =   4560
  8.    Height          =   2220
  9.    Left            =   3540
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1815
  12.    ScaleWidth      =   4560
  13.    Top             =   3585
  14.    Width           =   4680
  15.    Begin CommandButton CloseZoomButton 
  16.       Caption         =   "&Close"
  17.       Height          =   264
  18.       Left            =   120
  19.       TabIndex        =   3
  20.       Top             =   36
  21.       Visible         =   0   'False
  22.       Width           =   972
  23.    End
  24.    Begin CommandButton SaveButton 
  25.       Caption         =   "&Save Changes"
  26.       Height          =   264
  27.       Left            =   120
  28.       TabIndex        =   2
  29.       Top             =   36
  30.       Visible         =   0   'False
  31.       Width           =   1932
  32.    End
  33.    Begin CommandButton CloseButton 
  34.       Cancel          =   -1  'True
  35.       Caption         =   "&Close w/o Changes"
  36.       Height          =   264
  37.       Left            =   2160
  38.       TabIndex        =   1
  39.       Top             =   40
  40.       Visible         =   0   'False
  41.       Width           =   1932
  42.    End
  43.    Begin TextBox cData 
  44.       BackColor       =   &H00FFFFFF&
  45.       Height          =   1332
  46.       Left            =   48
  47.       MultiLine       =   -1  'True
  48.       ScrollBars      =   2  'Vertical
  49.       TabIndex        =   0
  50.       Tag             =   "OL"
  51.       Top             =   360
  52.       Width           =   4452
  53.    End
  54. End
  55. Option Explicit
  56. Dim FData As String
  57.  
  58. Sub cData_KeyPress (KeyAscii As Integer)
  59.   'check for the escape key
  60.   If KeyAscii = 27 Then
  61.     Call CloseButton_Click
  62.     Exit Sub
  63.   End If
  64.  
  65.   'throw away the key of save not alloed
  66.   If SaveButton.Visible = False Then KeyAscii = 0
  67. End Sub
  68.  
  69. Sub CloseButton_Click ()
  70.   Unload Me
  71. End Sub
  72.  
  73. Sub CloseZoomButton_Click ()
  74.   Unload Me
  75. End Sub
  76.  
  77. Sub Form_Load ()
  78.   cData = gstZoomData
  79.   Height = 2500
  80.   Width = 4600
  81. End Sub
  82.  
  83. Sub Form_Paint ()
  84.   Outlines Me
  85. End Sub
  86.  
  87. Sub Form_Resize ()
  88.   On Error Resume Next
  89.  
  90.   cData.Width = Me.Width - 200
  91.   cData.Height = Me.Height - 850
  92. End Sub
  93.  
  94. Sub SaveButton_Click ()
  95.   gstZoomData = cData
  96.   Unload Me
  97. End Sub
  98.  
  99.